(defun IOTA(N) (REVERSE (IOTA_AUX N)))

(defun IOTA_AUX (N)
	(IF (= N 1) (LIST '1)
		(CONS N (IOTA_AUX (- N 1)))
	)
)